home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 November / Macworld Nov ’95.toast / Developers / Selection ƒ 2.5 / hscrollbar < prev    next >
Encoding:
Text File  |  1994-11-06  |  367 b   |  33 lines  |  [TEXT/MSET]
  1.  
  2. :class hscrollBar super{ vscrollBar }
  3.  
  4. :m >RECT:  { x y len -- left top rt bot }
  5.     x  y   x len +    y 16 + ;m
  6.  
  7. :m init: ( x y len -- )
  8.     >RECT: self put: bounds ;m
  9.  
  10. :m classinit:
  11.     40 20 100 init: self ;m
  12.  
  13. :m dh: ( -- dh )
  14.     dv: super ;m
  15.  
  16. :m dv: ( -- dv )
  17.     dh: super ;m
  18.  
  19. ;class
  20.  
  21. endload
  22.  
  23. *** EXAMPLE USE
  24.  
  25. selwindow w
  26. test: w 
  27.  
  28. vscrollbar v
  29. v add: w
  30.  
  31. hscrollbar h
  32. h add: w
  33.